home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
totdem.arc
/
DEMSH1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-10
|
601b
|
24 lines
program DemoShadow1;
{demsh1}
Uses DOS, CRT,
totFAST;
begin
with Screen do
begin
Clear(white,'░'); {paint the screen}
ShadFillBox(3,3,20,8,31,1);
ShadowTOT^.SetShadowStyle(Upleft,lightgray,' ');
ShadFillBox(3,12,20,19,47,2);
ShadowTOT^.SetShadowStyle(Downleft,lightblue,' ');
ShadowTOT^.SetShadowSize(4,1);
ShadFillBox(35,2,70,10,94,3);
ShadowTOT^.SetShadowStyle(DownLeft,white,'!');
ShadFillBox(40,13,60,18,15,4);
ShadowTOT^.SetDefaults;
ShadFillBox(5,21,75,23,78,5);
end; {with}
end.